﻿Public Class KKTextBox

    Public Property BorderColor As Color
    Public Property CustomBorder As Boolean

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        If Me.CustomBorder Then
            If Me.Region Is Nothing Then
                Me.Region = New Region(New Rectangle(2, 2, Me.Width - 4, Me.Height - 4))
            Else
                Me.Region = Nothing
            End If
        End If
    End Sub

    Public Property NumericOnly As Boolean


End Class
